home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 6.2
/
2000-12_-_Disc_6.2.iso
/
Patches
/
age2upa.exe
/
CABFILE
/
FILESUSA.CAB
/
Data
/
gamedata.drs
/
Unnamed File 000030.bina
< prev
next >
Wrap
Text File
|
1999-11-11
|
19KB
|
1,019 lines
(defrule
(timer-triggered t-production)
=>
(generate-random-number 3)
)
(defrule
(timer-triggered t-production)
(or
(goal military-parity NO)
(random-number == 1)
)
=>
(set-goal combat-supp UNIT20)
)
;************************
(defrule
(timer-triggered t-production)
=>
(generate-random-number 12)
)
;feudal-age
(defrule
(goal combat-supp UNIT20)
(current-age == feudal-age)
(timer-triggered t-production)
(random-number <= 5)
(or
(or
(goal combat-arm INFANTRY)
(goal combat-arm CAVALRY)
)
(goal pre-unique-arm INFANTRY)
)
=>
(set-goal combat-supp ARCHER)
)
(defrule
(goal combat-supp UNIT20)
(current-age == feudal-age)
(timer-triggered t-production)
(random-number >= 6)
(random-number <= 10)
(or
(or
(goal combat-arm CAVARCHER)
(goal combat-arm ARCHER)
)
(goal pre-unique-arm ARCHER)
)
=>
(set-goal combat-supp INFANTRY)
)
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(current-age == feudal-age)
(timer-triggered t-production)
(random-number == 11)
=>
(set-goal combat-supp INFANTRY)
)
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(current-age == feudal-age)
(timer-triggered t-production)
(random-number == 12)
=>
(set-goal combat-supp ARCHER)
)
;castle-age & higher
;if Infantry is the main build
(defrule
(goal combat-arm INFANTRY)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 1)
=>
(set-goal combat-supp CAVALRY)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 1)
(building-type-count castle > 0)
(or
(or
(civ-selected celtic)
(civ-selected frankish)
)
(or
(or
(civ-selected gothic)
(civ-selected japanese)
)
(or
(civ-selected teutonic)
(civ-selected viking)
)
)
)
=>
(set-goal combat-supp CAVALRY)
)
(defrule
(goal combat-arm INFANTRY)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 3)
=>
(set-goal combat-supp LIGHTCAV)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 3)
(building-type-count castle > 0)
(or
(or
(civ-selected celtic)
(civ-selected frankish)
)
(or
(or
(civ-selected gothic)
(civ-selected japanese)
)
(or
(civ-selected teutonic)
(civ-selected viking)
)
)
)
=>
(set-goal combat-supp LIGHTCAV)
)
(defrule
(goal combat-arm INFANTRY)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 6)
=>
(set-goal combat-supp CAVARCHER)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 6)
(building-type-count castle > 0)
(or
(or
(civ-selected celtic)
(civ-selected frankish)
)
(or
(or
(civ-selected gothic)
(civ-selected japanese)
)
(or
(civ-selected teutonic)
(civ-selected viking)
)
)
)
=>
(set-goal combat-supp CAVARCHER)
)
(defrule
(goal combat-arm INFANTRY)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 10)
=>
(set-goal combat-supp ARCHER)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 10)
(building-type-count castle > 0)
(or
(or
(civ-selected celtic)
(civ-selected frankish)
)
(or
(or
(civ-selected gothic)
(civ-selected japanese)
)
(or
(civ-selected teutonic)
(civ-selected viking)
)
)
)
=>
(set-goal combat-supp ARCHER)
)
(defrule
(goal combat-arm INFANTRY)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 12)
=>
(set-goal combat-supp SCORPION)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 12)
(building-type-count castle > 0)
(or
(or
(civ-selected celtic)
(civ-selected frankish)
)
(or
(or
(civ-selected gothic)
(civ-selected japanese)
)
(or
(civ-selected teutonic)
(civ-selected viking)
)
)
)
=>
(set-goal combat-supp SCORPION)
)
;if Cavalry is the main build
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 2)
(or
(goal combat-arm CAVALRY)
(and
(building-type-count castle > 0)
(or
(civ-selected byzantine)
(or
(civ-selected persian)
(civ-selected saracen)
)
)
)
)
=>
(set-goal combat-supp INFANTRY)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 9)
(or
(goal combat-arm CAVALRY)
(and
(building-type-count castle > 0)
(or
(civ-selected byzantine)
(or
(civ-selected persian)
(civ-selected saracen)
)
)
)
)
=>
(set-goal combat-supp CAVARCHER)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 11)
(or
(goal combat-arm CAVALRY)
(and
(building-type-count castle > 0)
(or
(civ-selected byzantine)
(or
(civ-selected persian)
(civ-selected saracen)
)
)
)
)
=>
(set-goal combat-supp ARCHER)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 12)
(or
(goal combat-arm CAVALRY)
(and
(building-type-count castle > 0)
(or
(civ-selected byzantine)
(or
(civ-selected persian)
(civ-selected saracen)
)
)
)
)
=>
(set-goal combat-supp SCORPION)
)
;if Light Cav is the main build
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 1)
=>
(set-goal combat-supp INFANTRY)
)
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 6)
=>
(set-goal combat-supp CAVALRY)
)
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 10)
=>
(set-goal combat-supp CAVARCHER)
)
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 11)
=>
(set-goal combat-supp ARCHER)
)
(defrule
(goal combat-arm LIGHTCAV)
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 12)
=>
(set-goal combat-supp SCORPION)
)
;if Cav Archers are the main build
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 4)
(or
(goal combat-arm CAVARCHER)
(and
(building-type-count castle > 0)
(civ-selected mongol)
)
)
=>
(set-goal combat-supp INFANTRY)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 8)
(or
(goal combat-arm CAVARCHER)
(and
(building-type-count castle > 0)
(civ-selected mongol)
)
)
=>
(set-goal combat-supp CAVALRY)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 12)
(or
(goal combat-arm CAVARCHER)
(and
(building-type-count castle > 0)
(civ-selected mongol)
)
)
=>
(set-goal combat-supp LIGHTCAV)
)
;if Archers are the main build
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 4)
(or
(goal combat-arm ARCHER)
(and
(building-type-count castle > 0)
(or
(or
(civ-selected briton)
(civ-selected chinese)
)
(or
(civ-selected mongol)
(civ-selected turkish)
)
)
)
)
=>
(set-goal combat-supp INFANTRY)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 7)
(or
(goal combat-arm ARCHER)
(and
(building-type-count castle > 0)
(or
(or
(civ-selected briton)
(civ-selected chinese)
)
(or
(civ-selected mongol)
(civ-selected turkish)
)
)
)
)
=>
(set-goal combat-supp CAVALRY)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number <= 11)
(or
(goal combat-arm ARCHER)
(and
(building-type-count castle > 0)
(or
(or
(civ-selected briton)
(civ-selected chinese)
)
(or
(civ-selected mongol)
(civ-selected turkish)
)
)
)
)
=>
(set-goal combat-supp LIGHTCAV)
)
(defrule
(goal combat-supp UNIT20)
(timer-triggered t-production)
(random-number == 12)
(or
(goal combat-arm ARCHER)
(and
(building-type-count castle > 0)
(or
(or
(civ-selected briton)
(civ-selected chinese)
)
(or
(civ-selected mongol)
(civ-selected turkish)
)
)
)
)
=>
(set-goal combat-supp SCORPION)
)
;periodically check how we're doing!
(defrule
(timer-triggered t-production)
=>
(disable-timer t-production)
(enable-timer t-production 300)
)
;*******************************************************
;INFANTRY ARMY
(defrule
(soldier-count < ten-percent-pop)
(building-type-count stable == 0)
(building-type-count archery-range == 0)
(building-type-count castle == 0)
(players-military-population any-enemy >= ten-percent-pop)
(can-train militiaman)
=>
(train militiaman)
(chat-local-to-self "emergency militia")
)
(defrule
(goal rush-control RUSHING)
(soldier-count < ten-percent-pop)
(can-train-with-escrow militiaman-line)
(nor
(can-train militiaman-line)
(goal upgrade-conflict NOTICE)
)
(or
(goal combat-arm INFANTRY)
(goal pre-unique-arm INFANTRY)
)
=>
(release-escrow food)
(release-escrow gold)
(train militiaman-line)
(set-goal secondary-build 0)
)
(defrule
(population < unit-max)
(can-train militiaman-line)
(or
(goal combat-arm INFANTRY)
(goal pre-unique-arm INFANTRY)
)
=>
(train militiaman-line)
(set-goal secondary-build 0)
)
(defrule
(goal secondary-build 0)
(goal combat-supp INFANTRY)
(population < unit-max)
(can-train militiaman-line)
=>
(train militiaman-line)
(set-goal secondary-build 1)
)
;********************************************************************
;CAVALRY ARMY == goal combat-arm CAVALRY & goal combat-supp CAVALRY
(defrule
(goal rush-control RUSHING)
(current-age < castle-age)
(soldier-count < ten-percent-pop)
(can-train-with-escrow militiaman-line)
(nor
(can-train militiaman-line)
(goal upgrade-conflict NOTICE)
)
(or
(goal combat-arm CAVALRY)
(goal pre-unique-arm CAVALRY)
)
=>
(release-escrow food)
(release-escrow gold)
(train militiaman-line)
(set-goal secondary-build 0)
)
(defrule
(goal rush-control RUSHING)
(soldier-count < ten-percent-pop)
(can-train-with-escrow knight-line)
(nor
(can-train knight-line)
(goal upgrade-conflict NOTICE)
)
(or
(goal combat-arm CAVALRY)
(goal pre-unique-arm CAVALRY)
)
=>
(release-escrow food)
(release-escrow gold)
(train knight-line)
(set-goal secondary-build 0)
)
(defrule
(current-age == feudal-age)
(soldier-count < twenty-percent-pop)
(players-military-population any-enemy >= ten-percent-pop)
(or
(goal combat-arm CAVALRY)
(goal pre-unique-arm CAVALRY)
)
(can-train militiaman-line)
=>
(train militiaman-line)
(set-goal secondary-build 0)
)
(defrule
(population < unit-max)
(can-train knight-line)
(or
(goal combat-arm CAVALRY)
(goal pre-unique-arm CAVALRY)
)
=>
(train knight-line)
(set-goal secondary-build 0)
)
(defrule
(goal secondary-build 0)
(goal combat-supp CAVALRY)
(population < unit-max)
(can-train knight-line)
=>
(train knight-line)
(set-goal secondary-build 1)
)
;********************************************************************
;LIGHT CAV ARMY == goal combat-arm LIGHTCAV & goal combat-supp LIGHTCAV
(defrule
(goal rush-control RUSHING)
(goal combat-arm LIGHTCAV)
(soldier-count < ten-percent-pop)
(can-train-with-escrow scout-cavalry-line)
(nor
(can-train scout-cavalry-line)
(goal upgrade-conflict NOTICE)
)
=>
(release-escrow food)
(train scout-cavalry-line)
(set-goal secondary-build 0)
)
(defrule
(goal combat-arm LIGHTCAV)
(population < unit-max)
(can-train light-cavalry)
(or
(current-age == castle-age)
(not (can-afford-unit knight-line) )
)
=>
(train light-cavalry)
(set-goal secondary-build 0)
)
(defrule
(goal combat-arm LIGHTCAV)
(current-age == imperial-age)
(population < unit-max)
(can-train knight-line)
=>
(train knight-line)
(set-goal secondary-build 0)
)
(defrule
(goal secondary-build 0)
(population < unit-max)
(can-train light-cavalry)
(or
(goal combat-supp LIGHTCAV)
(and
(goal combat-arm LIGHTCAV)
(current-age == imperial-age)
)
)
=>
(train light-cavalry)
(set-goal secondary-build 1)
)
;********************************************************************
;CAV ARCHER ARMY == goal combat-arm CAVARCHER & goal combat-supp CAVARCHER
(defrule
(goal rush-control RUSHING)
(current-age == feudal-age)
(soldier-count < ten-percent-pop)
(can-train-with-escrow archer)
(nor
(can-train archer)
(goal upgrade-conflict NOTICE)
)
(or
(goal combat-arm CAVARCHER)
(goal pre-unique-arm CAVARCHER)
)
=>
(release-escrow wood)
(release-escrow gold)
(train archer)
(set-goal secondary-build 0)
)
(defrule
(goal rush-control RUSHING)
(soldier-count < ten-percent-pop)
(can-train-with-escrow cavalry-archer-line)
(nor
(can-train cavalry-archer-line)
(goal upgrade-conflict NOTICE)
)
(or
(goal combat-arm CAVARCHER)
(goal pre-unique-arm CAVARCHER)
)
=>
(release-escrow wood)
(release-escrow gold)
(train cavalry-archer-line)
(set-goal secondary-build 0)
)
(defrule
(current-age == feudal-age)
(soldier-count < twenty-percent-pop)
(can-train-with-escrow archer-line)
(not (can-train archer-line) )
(or
(goal rush-control RUSHING)
(players-military-population any-enemy >= ten-percent-pop)
)
(or
(goal combat-arm CAVARCHER)
(goal pre-unique-arm CAVARCHER)
)
=>
(train archer-line)
(set-goal secondary-build 0)
)
(defrule
(current-age == feudal-age)
(soldier-count < twenty-percent-pop)
(can-train-with-escrow archer-line)
(not (can-train archer-line) )
(or
(goal rush-control RUSHING)
(players-military-population any-enemy >= ten-percent-pop)
)
(or
(goal combat-arm CAVARCHER)
(goal pre-unique-arm CAVARCHER)
)
=>
(train archer-line)
(set-goal secondary-build 0)
)
(defrule
(population < unit-max)
(can-train cavalry-archer-line)
(or
(goal combat-arm CAVARCHER)
(goal pre-unique-arm CAVARCHER)
)
=>
(train cavalry-archer-line)
(set-goal secondary-build 0)
)
(defrule
(goal secondary-build 0)
(goal combat-supp CAVARCHER)
(population < unit-max)
(can-train cavalry-archer-line)
=>
(train cavalry-archer-line)
(set-goal secondary-build 1)
)
;*******************************************************
;HAND-CANNONEERS
(defrule
(population < unit-max)
(can-train hand-cannoneer)
(or
(goal combat-arm ARCHER)
(goal pre-unique-arm ARCHER)
)
=>
(train hand-cannoneer)
(set-goal secondary-build 0)
)
(defrule
(goal secondary-build 0)
(goal combat-supp ARCHER)
(population < unit-max)
(can-train hand-cannoneer)
=>
(train hand-cannoneer)
(set-goal secondary-build 1)
)
;*******************************************************
;ARCHER ARMY == goal combat-arm ARCHER & goal combat-supp ARCHER
(defrule
(goal rush-control RUSHING)
(soldier-count < ten-percent-pop)
(can-train-with-escrow archer-line)
(nor
(can-train archer)
(goal upgrade-conflict NOTICE)
)
(or
(goal combat-arm ARCHER)
(goal pre-unique-arm ARCHER)
)
=>
(release-escrow wood)
(release-escrow gold)
(train archer-line)
(set-goal secondary-build 0)
)
(defrule
(population < unit-max)
(can-train archer-line)
(not (unit-available hand-cannoneer) )
(or
(goal combat-arm ARCHER)
(goal pre-unique-arm ARCHER)
)
=>
(train archer-line)
(set-goal secondary-build 0)
)
(defrule
(goal secondary-build 0)
(goal combat-supp ARCHER)
(population < unit-max)
(can-train archer-line)
=>
(train archer-line)
(set-goal secondary-build 1)
)
;*******************************************************
;SCORPION SUPPORT == goal combat-supp SCORPION
(defrule
(goal secondary-build 0)
(goal combat-supp SCORPION)
(population < unit-max)
(can-train scorpion-line)
=>
(train scorpion-line)
(set-goal secondary-build 1)
)
(defrule
(goal secondary-build 0)
(goal combat-supp SCORPION)
(population < unit-max)
(building-type-count siege-workshop == 0)
(can-train militiaman-line)
=>
(train militiaman-line)
(set-goal secondary-build 1)
)
;*******************************************************
;UNIQUE UNITS! == goal combat-arm UNIQUE
(defrule
(goal rush-control RUSHING)
(goal combat-arm UNIQUE)
(soldier-count < ten-percent-pop)
(can-train-with-escrow my-unique-unit-line)
(nor
(can-train my-unique-unit-line)
(goal upgrade-conflict NOTICE)
)
(or
(civ-selected mongol)
(or
(civ-selected briton)
(civ-selected chinese)
)
)
=>
(release-escrow wood)
(release-escrow gold)
(train my-unique-unit-line)
(set-goal secondary-build 0)
)
(defrule
(goal rush-control RUSHING)
(goal combat-arm UNIQUE)
(soldier-count < ten-percent-pop)
(can-train-with-escrow my-unique-unit-line)
(nor
(can-train my-unique-unit-line)
(goal upgrade-conflict NOTICE)
)
(nor
(civ-selected mongol)
(or
(civ-selected briton)
(civ-selected chinese)
)
)
=>
(release-escrow food)
(release-escrow gold)
(train my-unique-unit-line)
(set-goal secondary-build 0)
)
(defrule
(goal combat-arm UNIQUE)
(population < unit-max)
(can-train my-unique-unit-line)
=>
(train my-unique-unit-line)
(set-goal secondary-build 0)
)
(defrule
(goal combat-arm UNIQUE)
(goal secondary-build 0)
(civ-selected persian)
(unit-type-count war-elephant-line < five-percent-pop)
(can-train-with-escrow war-elephant-line)
(not (goal upgrade-conflict NOTICE) )
=>
(release-escrow food)
(release-escrow gold)
(train war-elephant-line)
(set-goal secondary-build 1)
)
;**********************************
;what if we're all out of gold?
(defrule
(current-age == imperial-age)
(current-age-time > 1800)
(population < thirty-percent-pop)
(gold-amount < 100)
(can-train spearman-line)
(town-under-attack)
=>
(train spearman-line)
(set-goal secondary-build 0)
)
(defrule
(current-age == imperial-age)
(current-age-time > 1800)
(population < thirty-percent-pop)
(gold-amount < 100)
(can-train scout-cavalry-line)
(town-under-attack)
=>
(train scout-cavalry-line)
(set-goal secondary-build 0)
)
(defrule
(current-age == imperial-age)
(current-age-time > 1800)
(population < thirty-percent-pop)
(gold-amount < 100)
(can-train skirmisher-line)
(town-under-attack)
=>
(train skirmisher-line)
(set-goal secondary-build 0)
)
